home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 March - Disc 1 / Macworld (1999-03) (Disk 1).dmg / Shareware World / Utilities / Text Processing / Alpha / Tcl / Completions / TeXCompletions.tcl < prev   
Encoding:
Text File  |  1998-04-27  |  17.2 KB  |  547 lines  |  [TEXT/ALFA]
  1. ## -*-Tcl-*-
  2.  # ###################################################################
  3.  #    Vince's    Additions -    an extension package for Alpha
  4.  # 
  5.  #    FILE: "TeXCompletions.tcl"
  6.  #                      created: 26/2/96 {2:27:17 pm} 
  7.  #                      last update: 26/4/98 {11:00:04 pm} 
  8.  #    Author:    Vince Darley
  9.  #    E-mail:    <darley@fas.harvard.edu>
  10.  #      mail:    Division of    Applied    Sciences, Harvard University
  11.  #            Oxford Street, Cambridge MA    02138, USA
  12.  #       www:    <http://www.fas.harvard.edu/~darley/>
  13.  #    
  14.  #    Adds completion routines for TeX mode.  This includes reference
  15.  #    (\label) completion, citation completion, environment completion,
  16.  #    environment item insertion.  
  17.  #    
  18.  #    Cool new feature: the '{' key is bound to electric completion.
  19.  #    This means you can just type as normal in most circumstances,
  20.  #    and when you hit '{', if the previous text is capable of being
  21.  #    extended as a command (e.g. \begin, \frac, ...), then it is!
  22.  # 
  23.  #  modified by  rev reason
  24.  #  -------- --- --- -----------
  25.  #  18/12/97 VMD 1.1 added TeX::IncludeFile completions, better handling of '*'
  26.  #  14/1/98  VMD 1.2 Env completion rewritten, some in core latex mode
  27.  #  28/1/98  VMD 1.3 huge thanks to Pierre Basso for improvements.
  28.  # ###################################################################
  29.  ##
  30.  
  31. # ◊◊◊◊ completions & expanders ◊◊◊◊ #
  32. ensureset completions(TeX) {beginContraction Env Cmd Electric Reference Cite Word}
  33. ensureset expanders(TeX) {ExCmd}
  34.  
  35. # ◊◊◊◊ Preferences ◊◊◊◊ #
  36.  
  37. # Add an item inside any environment 
  38. # bound to shift-opt-i
  39. newPref binding TeXAddItem "/I<U<I" TeX "" 1
  40.  
  41. newPref f showTitlesWithTeXCiteCompletion 1 TeX
  42. # complete an environment even if we don't recognise it!
  43. newPref f acceptAnyTeXEnvironment 1 TeX
  44. # if we don't recognise the environment, create a body on the fly
  45. newPref f promptToCreateTeXEnvironment 1 TeX
  46. newPref f electricContractions 1 TeX
  47.  
  48. # ◊◊◊◊ extra invoker key ◊◊◊◊ #
  49.  
  50. proc TeX::electricLeft {} {
  51.     global TeXmodeVars
  52.     set p [getPos]
  53.     if {$TeXmodeVars(electricContractions)} {
  54.     catch {TeX::Completion::beginContraction}
  55.     }
  56.     if {[pos::compare [getPos] == $p]} {
  57.     catch {TeX::Completion::Electric}
  58.     }
  59.     if {[pos::compare [getPos] == $p]} {
  60.     insertText "\{"
  61.     }
  62. }
  63.  
  64. proc TeX::electricRight {} {
  65.     insertText "\}"
  66. }
  67.  
  68. # ◊◊◊◊ Completions ◊◊◊◊ #
  69.  
  70. ## 
  71.  # -------------------------------------------------------------------------
  72.  # 
  73.  # "TeX::Completion::beginContraction" --
  74.  # 
  75.  #  The idea here is to see if you see a hint in the form of 
  76.  #  "b'<some-word>", if so replace the "b'" with "\begin ".
  77.  # -------------------------------------------------------------------------
  78.  ##
  79. proc TeX::Completion::beginContraction {{dummy ""}} {
  80.     set lastword [completion::lastTwoWords leadingHint]
  81.     if {$leadingHint != "b'"} {return 0} 
  82.     set curPos [getPos]
  83.     backwardWord
  84.     set startEnvPos [getPos]
  85.     set evironmentHint [getText $startEnvPos $curPos]
  86.     backwardWord
  87.     deleteText [getPos] $curPos
  88.     insertText "\\begin"
  89.     TeX::Completion::Electric "begin"
  90.     typeText $lastword
  91.     return 0
  92. }
  93.  
  94. ## 
  95.  # -------------------------------------------------------------------------
  96.  #     
  97.  # "TeX::Completion::Env" --
  98.  #    
  99.  #    Complete the contents of a \begin...\end pair as appropriate.  Uses    the
  100.  #    TeXbodies array.  You can either type '\begin<cmd-Tab>figure<cmd-Tab>'
  101.  #    (for example) or just '\begin{figure}<cmd-Tab>'.
  102.  # -------------------------------------------------------------------------
  103.  ##
  104. proc TeX::Completion::Env {dummy} {
  105.     set cmd [completion::lastTwoWords begin]
  106.     if { $begin != "\\begin\{" } { return 0 }
  107.     if [regexp {^(.*)\}$} $cmd "" cmd] {
  108.     # hmm
  109.     }
  110.     set matches [completion::fromList $cmd TeXenvironments]
  111.     if { $matches == "" } {
  112.     global TeXmodeVars TeXbodies
  113.     if [info exists TeXbodies($cmd)] {
  114.         set match $cmd
  115.     } else {            
  116.         if {$TeXmodeVars(acceptAnyTeXEnvironment)} {
  117.         if $TeXmodeVars(promptToCreateTeXEnvironment) {
  118.             set y 40
  119.             set yb 200
  120.             set res [eval dialog -w 400 -h 340 \
  121.               [dialog::title "New TeX environment" 400] \
  122.               [dialog::button "OK" 310 yb] \
  123.               [dialog::button "Cancel" 310 yb] \
  124.               [dialog::text "Enter the template for the body of the environment" 10 y] \
  125.               [dialog::text "Write '•prompt message•' for each template stop," 10 y] \
  126.               [dialog::text "'\\r','\\\{','\\t',... for return, brace, tab etc." 10 y] \
  127.               [dialog::edit "•body•" 10 y 35 6] \
  128.               ]
  129.             set match $cmd
  130.             if {![lindex $res 1]} {
  131.             eval set "TeXbodies($match)" [lindex $res 2]
  132.             addUserLine "set TeXbodies($match) \"[quoteExpr3 $TeXbodies($match)]\""
  133.             } else {
  134.             # we cancelled, so move on
  135.             completion::already error
  136.             return 1
  137.             }
  138.         } else {
  139.             message "Warning: I don't recognise that environment"
  140.             set match $cmd
  141.         }
  142.         } else {
  143.         return 0
  144.         }
  145.     }
  146.     } else {
  147.     set match [completion::Find $cmd $matches]
  148.     }    
  149.     if [string length $match] {
  150.     # we completed or cancelled, so move on
  151.     completion::already error
  152.     if { $match == 1 } {
  153.         return 1
  154.     } else {            
  155.         if {![ring::type]} {
  156.         endOfLine
  157.         set p [getPos]
  158.         ring::+
  159.         insertText $match
  160.         goto $p
  161.         return [elec::findCmd $match TeXbodies ""]
  162.         }
  163.         if {![ring::TMarkAt "environment name" [pos::math [getPos] - [string length $match]]]} {
  164.         # we probably typed '\begin{name}' all in one go
  165.         set i "••"
  166.         if {[lookAt [pos::math [getPos] - 1]] != "\}"} {
  167.             append i "\}"
  168.         }
  169.         append i "\r\\end\{${match}\}\r••"
  170.         elec::Insertion $i
  171.         endOfLine
  172.         } else {
  173.         endOfLine
  174.         set p [getPos]
  175.         # delete the stop of the \end{•}
  176.         ring::+
  177.         ring::deleteStop
  178.         # we need to fill in the '\end{}'
  179.         insertText $match
  180.         goto $p
  181.         }
  182.         set ret [elec::findCmd $match TeXbodies ""]
  183.         # delete the stop of \begin{•}
  184.         # we do this afterwards, otherwise we lose the nesting of
  185.         # templates, which is bad.
  186.         ring::-
  187.         ring::deleteStopAndMove
  188.         return $ret
  189.     }
  190.     } else {
  191.     completion::already TeX::Completion::Env
  192.     return 1
  193.     }    
  194. }
  195.  
  196. ## 
  197.  # -------------------------------------------------------------------------
  198.  #     
  199.  # "TeX::Completion::Cmd" --
  200.  #    
  201.  #    Takes account of the backslash which commands in TeX use
  202.  # -------------------------------------------------------------------------
  203.  ##
  204. proc TeX::Completion::Cmd {dummy} {
  205.     set cmd [completion::lastWord pos]
  206.     if {[regexp {^\\([^\*]*)\*?$} $cmd "" cmd]} {
  207.     return [completion::cmd $cmd]
  208.     } else {
  209.     return 0
  210.     }
  211. }
  212.  
  213. ## 
  214.  # -------------------------------------------------------------------------
  215.  #     
  216.  #    "TeX::Completion::Electric"    --
  217.  #    
  218.  #     An    example    of calling the completion::electric procedure. 
  219.  #     In TeX mode, '{••}••' is a good default.
  220.  # -------------------------------------------------------------------------
  221.  ##
  222. proc TeX::Completion::Electric { {cmd ""} } {
  223.     if ![string length $cmd] { 
  224.     if [containsSpace $cmd] { return 0 }
  225.     set cmd [completion::lastWord]
  226.     }
  227.     if {[regexp {^\\([^\*]*)\*?$} $cmd "" cmd]} {
  228.     # nothing
  229.     } elseif {[regexp {\]\{?$} $cmd got]} {
  230.     # we might have an optional [...] after the command we really want.
  231.     # This should work but doesn't (Alpha bug)!
  232.     #{matchIt "]" [pos::math [getPos] - [expr 1 + [string length $got]]]}
  233.     if ![catch {search -s -f 0 -r 0 -m 0 "\[" [getPos]} where] {
  234.         set p [getPos]
  235.         goto [lindex $where 0]
  236.         set cmd [completion::lastWord]
  237.         goto $p
  238.         regexp {^\\([^\*]*)\*?$} $cmd "" cmd
  239.     }
  240.     }
  241.     return [completion::electric $cmd "\{••\}••"]
  242. }
  243.  
  244.     
  245. ## 
  246.  # -------------------------------------------------------------------------
  247.  #     
  248.  # "TeX::Completion::Reference"    --
  249.  #    
  250.  #    If we're in    any    kind of    reference, search for appropriate labels to
  251.  #    get    the    information    from and fill them in.    'TeXRefCompletion'
  252.  #    in "latexEngine.tcl" is    obsolete.
  253.  # -------------------------------------------------------------------------
  254.  ##
  255. proc TeX::Completion::Reference { {dummy ""} } {
  256.     global completion::in_progress_pos completion_got completion_looking
  257.     global _texrefprefixes
  258.     # cursor changed place?
  259.     set pos [getPos]
  260.     if {[pos::compare $pos == ${completion::in_progress_pos}]} {
  261.     completion::update Reference $completion_got $completion_looking
  262.     message "press <Cmd Tab> for another label"
  263.     return 1
  264.     }
  265.     
  266.     global TeXmodeVars
  267.     
  268.     set lastword [completion::lastTwoWords prevword]
  269.     set gotprefix ""
  270.     set prevword [string trim [string range $prevword 1 end] "\{"]
  271.     if {[set ref [lsearch -exact $TeXmodeVars(refCommands) $prevword]] != -1} {
  272.     set gotprefix $lastword
  273.     set lastword $prevword
  274.     } else {
  275.     # trim the backslash and opening brace:
  276.     set lastword [string trim [string range $lastword 1 end] "\{"]
  277.     # check if it's a \ref-like command:
  278.     set ref [lsearch -exact $TeXmodeVars(refCommands) $lastword]
  279.     }    
  280.     
  281.     if { $ref != -1 } {
  282.     # got a \ref-like command:
  283.     set completion_got "\\[lindex $TeXmodeVars(refCommands) $ref]\{${gotprefix}"
  284.     # make sure we have the brace:
  285.     if { $gotprefix == "" && [lookAt [pos::math $pos - 1]] != "\{" } {
  286.         insertText "\{"
  287.     }
  288.     set completion_looking "label\{${gotprefix}"
  289.     TeX::updateCompletion Reference $completion_got $completion_looking
  290.     completion::already Reference
  291.     return 1
  292.     } else {
  293.     return 0 
  294.     }
  295. }
  296.  
  297. ## 
  298.  # -------------------------------------------------------------------------
  299.  #     
  300.  # "TeX::Completion::Cite" --
  301.  #    
  302.  #    Checks for any \cite like command, and looks up    the    partial    argument
  303.  #    in the known bibliographies, completing    the    entry as appropriate.
  304.  # -------------------------------------------------------------------------
  305.  ##
  306. proc TeX::Completion::Cite { {dummy ""} } {
  307.     global completion::in_progress_pos completion_got completion_looking TeXmodeVars
  308.     # cursor changed place?
  309.     if {[pos::compare [getPos] == ${completion::in_progress_pos}]} {
  310.     set lastword [completion::lastWord]
  311.     set completion_got [completion::fromList $lastword completion_got]
  312.     } else {
  313.     global TeXmodeVars
  314.     set a [getText [lineStart [getPos]] [getPos]]
  315.     # got a \cite-like command:
  316.     if ![regexp "\\\\([join [string trim $TeXmodeVars(citeCommands)] |])\\\{(\[a-zA-Z0-9\]+,)*(\[a-zA-Z0-9\]+)$" $a d d d lastword] {
  317.         return 0
  318.     }
  319.     set completion_got [Bib::_FindAllEntries $lastword \
  320.       $TeXmodeVars(showTitlesWithTeXCiteCompletion)]
  321.     if {$completion_got == ""} {
  322.         if [catch {dialog::optionMenu \
  323.           "No matching citations found.  Perhaps you should\
  324.           rebuild your bib data-base, or create a new entry." \
  325.           [list "Rebuild database" "New entry" "New entry in new file"]} res] {
  326.         # user cancelled
  327.         return 0
  328.         }
  329.         switch $res {
  330.         "Rebuild database" {
  331.             if $TeXmodeVars(showTitlesWithTeXCiteCompletion) {
  332.             Bib::rebuildDatabase
  333.             } else {
  334.             Bib::rebuildIndex
  335.             }
  336.             # try again
  337.             return [TeX::Completion::Cite $dummy]
  338.         }
  339.         "New entry" {
  340.             Bib::_newEntry $lastword
  341.         }
  342.         "New entry in new file" {
  343.             Bib::_newEntry $lastword 1
  344.         }
  345.         }
  346.         return 0
  347.     }
  348.     }
  349.     if $TeXmodeVars(showTitlesWithTeXCiteCompletion) {
  350.     set query "Rebuild Bibliography Database"
  351.     set rebuild Bib::rebuildDatabase
  352.     } else {
  353.     set query "Rebuild Bibliography Index"
  354.     set rebuild Bib::rebuildIndex
  355.     }
  356.     set match [completion::Find $lastword $completion_got \
  357.       $TeXmodeVars(showTitlesWithTeXCiteCompletion) 1 $query $rebuild]
  358.     if {$match != ""} {
  359.     if {[lookAt [getPos]] != "\}"} { insertText "\}" }
  360.     }
  361.     # we never bother with calling ourselves again, since we forced the above
  362.     # 'completion::Find' call to complete.
  363.     completion::already error
  364.     return 1
  365. }
  366.  
  367. proc TeX::Completion::Word {dummy} {
  368.     # we only complete the word if it doesn't end in some command
  369.     if { [lookAt [pos::math [getPos] - 1]] != "\{" } {
  370.     return [completion::word $dummy]
  371.     }
  372. }
  373.  
  374. # ◊◊◊◊ helpers ◊◊◊◊ #
  375.  
  376. proc TeX::updateCompletion { proc {got ""} {looking ""} } {
  377.     if [completion::general $got $looking] {
  378.     if {[lookAt [getPos]] != "\}"} {
  379.         insertText "\}"
  380.     } 
  381.     completion::already $proc
  382.     message "press <Cmd Tab> for another label"
  383.     return 1
  384.     } else {
  385.     completion::already error
  386.     # if {[lookAt [expr [getPos] - 1]] != "\}"} {
  387.     #     elec::Insertion "\}••"        
  388.     # } 
  389.     error ""
  390.     return 0
  391.     }
  392. }    
  393.  
  394. # ◊◊◊◊ setup various arrays for electrics ◊◊◊◊ #
  395. uplevel \#0 [list source [file join ${HOME} Tcl Completions TeXcmds.tcl]]
  396.  
  397. hook::register TeX::labelDelimChanged TeX::adjustElectricLabels
  398. proc TeX::adjustElectricLabels {args} {
  399. uplevel \#0 {
  400. set _x $TeXmodeVars(standardTeXLabelDelimiter)
  401. set TeXelectrics(*section) "\{•section name•\}\n••"
  402. set TeXelectrics(frac) "\{•numerator•\}\{•denominator•\}••"
  403. set TeXelectrics(sum) "_\{•from•\}^\{•to•\}••"
  404. set TeXelectrics(emph) "◊1"
  405. set TeXelectrics(includegraphics) "◊\[TeX::IncludeFile\]"
  406. set TeXelectrics(begin) "\{•environment name•\}\n\\end\{••\}\n••"
  407. set TeXelectrics(Sec*) "◊kill0Section~\\ref\{sec${_x}•label•\}••"
  408. set TeXelectrics(Table) "~\\ref\{tab${_x}•label•\}••"
  409. set TeXelectrics(App*) "◊kill0Appendix~\\ref\{sec${_x}•label•\}••"
  410. set TeXelectrics(Eq.) "~\\eqref\{eq${_x}•label•\}••"
  411. set TeXelectrics(Fig*) "◊kill0Figure~\\ref\{fig${_x}•label•\}••"
  412. set TeXelectrics(Cha*) "◊kill0Chapter~\\ref\{chap${_x}•label•\}••"
  413. set TeXelectrics(mbox) "\{••\}"
  414. set TeXelectrics(fbox) "\{••\}"
  415. set TeXelectrics(mbox) "\{••\}"
  416. set TeXelectrics(parbox) "◊\[TeX::parbox\]"
  417. set TeXelectrics(makebox) "◊\[TeX::boxes\]"
  418. set TeXelectrics(framebox) "◊\[TeX::boxes\]"
  419. set TeXelectrics(raisebox) "◊\[TeX::raisebox\]"
  420. set TeXelectrics(newsavebox) "\{••\}"
  421. set TeXelectrics(usebox) "\{••\}"
  422. set TeXelectrics(sbox) "◊\[TeX::sbox\]"
  423. set TeXelectrics(savebox) "◊\[TeX::savebox\]"
  424. set TeXelectrics(rule) "◊\[TeX::rule\]"
  425. #set TeXelectrics(subfigure) "\[•caption•\]\{\\label\{fig${_x}••\}\}\%\r\\includegraphics\[•width=,height=•\]\{•eps file•\}\}"
  426. set TeXbodies(array) "◊\[TeX::BuildTabular array\]"
  427. set TeXbodies(equation) "\n\t•equation body•\n\t\\label\{eq${_x}•label•\}"
  428. set TeXbodies(description) "◊\[TeX::BuildList description\]"
  429. set TeXbodies(enumerate) "◊\[TeX::BuildList enumerate\]"
  430. set TeXbodies(itemize) "◊\[TeX::BuildList itemize\]"
  431. set TeXbodies(list) "◊\[TeX::BuildList list\]"
  432. set TeXbodies(trivlist) "◊\[TeX::BuildList trivlist\]"
  433. set TeXbodies(figure) "◊\[TeX::Figure\]"
  434. set TeXbodies(table) "\n\t••\n\t\\caption•\[short title for t.o.t.\]•\{•caption•\}\n\t\\protect[TeX::label tab]"
  435.  
  436. set TeXbodies(tabular) "◊\[TeX::BuildTabular tabular\]"
  437. set TeXbodies(tabular*) "◊\[TeX::BuildTabular tabular*\]"
  438. set TeXbodies(gather) "\n\t•• \n\t\\label\{eq${_x}••\} \\\\\n\t•• \n\t\\label\{eq${_x}••\}"
  439. set TeXbodies(split) "\n\t•• &•• \\\\\n\t•• &•• \\\\"
  440. set TeXbodies(cases) "\n\t•• & •• \\\\\n\t•• & ••"
  441.  
  442. set TeXbodies(equationarray) "◊\[TeX::equationarray\]"
  443. set TeXbodies(minipage) "◊\[TeX::minipage\]"
  444. set TeXbodies(matrix) "◊\[TeX::matrix\]"
  445. set TeXbodies(pmatrix) "◊\[TeX::matrix\]"
  446. set TeXbodies(bmatrix) "◊\[TeX::matrix\]"
  447. set TeXbodies(vmatrix) "◊\[TeX::matrix\]"
  448. set TeXbodies(Vmatrix) "◊\[TeX::matrix\]"
  449. set TeXbodies(align) "◊\[TeX::align\]"
  450. set TeXbodies(alignat) "◊\[TeX::alignat\]"
  451.  
  452. set TeXbodies(align) "\n\t•equation 1 l.h.s.• &•• \n\t\\label\{eq${_x}••\} \\\\\n\t•equation 2 l.h.s.• &•• \n\t\\label\{eq${_x}••\}"
  453.  
  454. set TeXEnvItems(enumerate) "\n\\item ••"
  455. set TeXEnvItems(itemize) "\n\\item ••"
  456. set TeXEnvItems(description) "\n\\item\[•name•\] •description•"
  457. set TeXEnvItems(align) "\\\\\n•next equation l.h.s.• &•• \n\\label\{eq${_x}••\} "
  458. set TeXEnvItems(gather) "\\\\\n•• \n\\label\{eq${_x}••\} "
  459. set TeXEnvItems(split) "•• &•• \\\\"
  460. set TeXEnvItems(cases) "•• &•• \\\\"
  461. set _texrefprefixes [list fig${_x} eq${_x} sec${_x} chap${_x} tab${_x} ]
  462. unset _x
  463. }
  464.  
  465. }
  466.  
  467. # call it now
  468. TeX::adjustElectricLabels
  469.  
  470.  
  471. # ◊◊◊◊ environment assistors ◊◊◊◊ #
  472.  
  473. ## 
  474.  # -------------------------------------------------------------------------
  475.  #     
  476.  # "TeXAddItem"    --
  477.  #    
  478.  #    Scan the local environment and insert a    new    item into that environment,
  479.  #    of the appropriate type.
  480.  #    
  481.  #    Currently not too sophisticated.
  482.  # -------------------------------------------------------------------------
  483.  ##
  484. proc TeXAddItem {} {
  485.     set env [lindex [split [eval getText [searchEnvironment]] "{}"] 1]
  486.     global TeXEnvItems
  487.     if ![catch {set item $TeXEnvItems($env)}] {
  488.     elec::Insertion $item
  489.     }
  490. }
  491.  
  492. # ◊◊◊◊ Template embeddable proc's ◊◊◊◊ #
  493.  
  494. proc TeX::IncludeFile {} {
  495.     # could try to ensure this file's on the search path?
  496.     if ![regexp {\{, } [lookAt [pos::math [getPos] - 1]]] {
  497.     append res "\{"
  498.     }
  499.     append res [file tail [getfile "Name of file to include:"]]
  500.     return $res
  501. }
  502.     
  503.  
  504.  
  505. # ◊◊◊◊ Expansions ◊◊◊◊ #
  506. namespace eval TeX::Expansion {}
  507.  
  508. # proc by Tom Fetherston
  509. proc TeX::Expansion::ExCmd { {cmd ""} {dictExt "acronyms"}} {
  510.     if ![string length $cmd] { 
  511.     set cmd [completion::lastWord]
  512.     # if there's any whitespace in the command then it's no good to us
  513.     if [containsSpace $cmd] { return 0 }
  514.     }
  515.     
  516.     set m [modeALike]
  517.     set hint [string trim [join [split $cmd \\ ]]]
  518.     
  519.     if { [set matches [elec::acronymListExpansions $hint ${m}${dictExt}]] == 0 } {
  520.     return 0
  521.     } else {
  522.     set result [elec::expandThis $cmd $matches]
  523.     set match [lindex  $result 0]
  524.     catch {set keystroke [lindex $result 1]}
  525.     if [string length $match] {
  526.         # we completed or cancelled, so move on
  527.         # WHY ISN'T THIS 'alreadyExpanding' ???????????? vmd
  528.         completion::already error
  529.         if { $match == 1 } {
  530.         return 1
  531.         } else {
  532.         set curPos [getPos]
  533.         set retVal [completion [modeALike] Electric "${match}"]
  534.         if {([pos::compare [getPos] == $curPos]) && [info exists keystroke]} {
  535.             insertText $keystroke
  536.         } 
  537.         return $retVal
  538.         }
  539.     } else {
  540.         elec::alreadyExpanding Cmd
  541.         return 1
  542.     }
  543.     }
  544.     
  545. }
  546.  
  547.